home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Recognize.94.cpt / Recognize .94 / background_16524.txt < prev    next >
Text File  |  1988-11-13  |  2KB  |  69 lines
  1. -- background: 16524 from stack: in.94
  2. -- bmap block id: 16101
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Librarybkgnd
  6. ----- HyperTalk script -----
  7. on idle
  8.   put empty into newln
  9.   put empty into thestring
  10.   global getlist
  11.   if getlist is true then
  12.  
  13.     repeat while charsavailable() <> 0
  14.       if the mouse is down then
  15.         put false into getlist
  16.         exit repeat
  17.         sendsport numtochar(3)
  18.       end if
  19.       set cursor to busy
  20.       show the msg at 13,18
  21.       put "Receiving Data--click to cancel"
  22.       put recvupto(return,"","") into newIn
  23.       put newIn after cd fld thelist
  24.     end repeat
  25.     hide msg
  26.  
  27.   else
  28.     repeat while charsavailable() <> 0
  29.       set cursor to busy
  30.       show the msg at 13,18
  31.       put "Receiving Data"
  32.       put recvupto(return,"","") into newIn
  33.       put newIn after cd fld thelist
  34.       set the scroll of cd fld thelist to the number of lines of cd fld thelist
  35.     end repeat
  36.   end if
  37.  
  38. end idle
  39.  
  40.  
  41.  
  42.  
  43. -- part 1 (field)
  44. -- low flags: 01
  45. -- high flags: 0004
  46. -- rect: left=122 top=1 right=35 bottom=394
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 2
  51. -- text size: 24
  52. -- style flags: 0
  53. -- line height: 32
  54. -- part name: Menu
  55.  
  56.  
  57. -- part 2 (field)
  58. -- low flags: 01
  59. -- high flags: 0004
  60. -- rect: left=226 top=34 right=63 bottom=285
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 0
  64. -- font id: 2
  65. -- text size: 18
  66. -- style flags: 0
  67. -- line height: 24
  68. -- part name: 
  69.